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Abstract. We give two classes of sound and complete models for the 
computational A-calculus, or A c -calculus. For the first, we generalise the 
notion of cartesian closed category to that of closed Freyd-category. For 
the second, we generalise simple indexed categories. The former gives a 
direct semantics for the computational A-calculus. The latter corresponds 
to an idealisation of stack-based intermediate languages used in some 
approaches to compiling. 

1 Introduction 

The computational A-calculus, or A c -calculus, is a natural fragment of a call- 
by-value programming language such as ML. Its models were defined to be Ac- 
models, which consist of a small category C with finite products, and a strong 
monad T on C, such that T has Kleisli exponentials. The class of A c -models is 
sound and complete for the calculus, but it does not provide direct models in 
that a term of type X in context r is not modelled by an arrow in C from the 
semantics of r to the semantics of X, but by a derived construction in terms of 
the monad. 

In this paper, we give two different equivalent formulations of A c -models, one 
generalising the notion of cartesian closed category, the other given by an in- 
dexed category with structure. We investigate natural languages for these struc- 
tures, and we prove the various equivalences. This builds upon our work in [11], 
in which we proved an equivalence between premonoidal categories with ex- 
tra structure (now called Freyd-categories) and indexed categories with added 
structure, which we called K-categories. We include an appendix recalling the 
definitions and relationship. 

Although these two new formulations are equivalent to A c -models, they are 
not the same as them. That is, the primitives in each are different. We explore this 
point by formulating languages motivated by each of the two models. One of the 
languages emphasises the role of structural rules of weakening and contraction, 
while the other emphasises the sequencing of intermediate values (inherent in 
the let of A c ) by keeping an explicit stack. 

A Freyd-category consists of a symmetric premonoidal category K, together 
with a category with finite products C and an identity on objects strict symmetric 
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premonoidal functor J:C — > /C, where a premonoidal category is essentially a 
monoidal category except that the tensor need only be a functor in two variables 
separately, and not necessarily a bifunctor: given maps /: A — > A' and g: B — > B' , 
the evident two maps from A <E> B to A' <E> B' may differ. Such structures arise 
naturally in the presence of computational effects, where the difference between 
these two maps is a result of sensitivity to evaluation order. A program phrase 
in environment J 1 is modelled by a morphism in the premonoidal category with 
domain [J 1 ]. The semantics here suggests a multiplicative approach to sequents. 

In a /t-category, a program phrase in environment r is modelled by an element 
1 — > [£?] in a category that implicitly depends on r, i.e., by an arrow from 

1 to [£?] in the fibre of the indexed category over [T]. A /t-category has a 
weak first-order notion of binding, given by the assertion that reindexing along 
projections has a left adjoint. In programming terms, that corresponds to a 
special form that binds an identifier but is not reifying in the sense that it does 
not produce a first-class function. In Hasegawa's original account, the /t-calculus 
was motivated purely by categorical considerations. However, such a first-order 
binder was independently devised by Douence and Fradet to give a high-level 
account of stack operations in compiling [1] . 

In [11], we gave an equivalence between Freyd-categories and /t-categories. 
Here, we extend that equivalence to model higher-order structure. It is not as 
simple as asking for a routine extension of the notion of closedness from that for 
a cartesian category to a premonoidal category, as one usually considers A-terms 
as values, and we distinguish between values and computations. This leads us to 
a notion of closedness for a Freyd-category [9] . To give a closed Freyd-category 
is equivalent to giving a strong monad with Kleisli exponentials on a cartesian 
category. But to give a strong monad on a cartesian category is to give an 
ordinary monad on the associated /t-category, where the cartesian category is 
regarded as a degenerate symmetric premonoidal category. So we examine the 
relationships between all four notions: a closed Freyd-category, a strong monad 
with Kleisli exponentials on a cartesian category, a monad on a simple fibration, 
and a closed K-category. 

The paper is organised as follows. We extend our equivalence between Freyd- 
categories and /t-categories to one incorporating higher-order structure in Sec- 
tion 2. In Section 3, we consider two calculi designed to fit the primitives of 
these two categorical settings: one a slight variant of A c , the other an extension 
of Hasegawa's /t-calculus. Section 4 concludes. 

2 Closed Freyd-categories, closed K-categories, and 
A c -models 

In previous work [11], recalled in Appendix A, we considered two ways of mod- 
elling environments. In this section, we extend that to model higher-order struc- 
ture, allowing us two ways to model the A c -calculus [7]. We define and relate 
closed Freyd-categories and closed /t-categories with A c -models. 



Definition 1. A strong monad T on a cartesian category C has Kleisli expo- 
nentials if for every object A, the functor J(A x — ): C — > Kleisli(T) has a right 
adjoint. 

Observe that if a cartesian category C is closed, then every strong monad on 
it has Kleisli exponentials. The converse is almost but not quite true. 

Definition 2. A Freyd-category J:C — > K, is closed if for every object A, the 
functor J(A (g) —):C — > K, has a right adjoint. 

Observe that it follows that the functor J:C — > K, has a right adjoint, and 
so K, is the Kleisli category for a monad on C A variant of one of the main 
theorems of [9] is 

Theorem 1. To give a closed Freyd-category is to give a cartesian category 
together with a strong monad on it for which Kleisli exponentials exist. 

That is as good a result as one can imagine to relate closed Freyd-categories 
with strong monads. So now we turn to K-categories. 

Definition 3. A K-category H:C op — > Cat is closed if for every object A of 
C, every object has a generic map from A into it, i.e., for every object B of C, 
there is an object [A — > B] and a map apply: A — > B in H^a^b] such that for 
every object C and every map f:A — > B in He, there exists a unique map 
Af:C — > [A -> B] inC such that ^/(apply) = /. 

C [A -> B] 

A A 

Ha/ 

f -s 1 apply 

•i 

B B 

Using the notation of Appendix A, we have 

Proposition 1. For any closed Freyd-category J, the K-category s( J) is closed, 
and for any closed K-category H, there is a Freyd-category J unique up to co- 
herent isomorphism such that s( J) is isomorphic to H. 

Proof. Most of this follows from Theorem 4 in the appendix. Close inspection of 
the construction of s( J) yields the rest: the assertion of the existence of a generic 
map from any object C into any object A is routinely equivalent to the assertion 
that the corresponding Freyd-category is closed. 

Relating this to monads, it was remarked by Plotkin and shown in [8] that 

Proposition 2. To give a strong monad with Kleisli exponentials on a cartesian 
category C is to give an indexed monad on the indexed category s(C). 



Finally, just as one can build the Kleisli construction from a monad on an 
ordinary category, one can build the Kleisli construction from a monad on an 
indexed category, in particular on a K-category; and there is an equivalence 
between monads and identity on objects indexed functors that have indexed 
right adjoints. Thus we have 

Proposition 3. To give a monad on s(C) for a cartesian category C is to give 
a K-category H such that inc: s(C) — > H has an indexed right adjoint. 

Putting this together, we have 

Theorem 2. Given a cartesian category C, the following are equivalent: 

1. to give a strong monad with Kleisli exponentials on C 

2. to give a closed Freyd-category J: C — > K, 

3. to give a monad on s(C) subject to a closedness condition 

4- to give a K-category H: C op — > Cat such that inc: s(C) — > H has an indexed 
right adjoint. 

The key result about the A c -calculus in [7] is that it has a sound and complete 
class of models given by the A c -models. But in Theorem 2, we have characterised 
A c -models. So one has 

Theorem 3. Both closed Freyd- categories and closed K-categories form sound 
and complete classes of models for the computational A-calculus. 

3 A- and K-calculi 

Because of the categorical equivalence results in Section 2, we know that we 
can model the computational A-calculus in closed Freyd-categories and closed k- 
categories. Our aim here is not to study completeness of calculi; that is routine, 
given our analysis in the last section and the previous analysis by Moggi. Rather, 
we want to formulate languages that correspond more directly to our models in 
an effort to expose their different character. Furthermore, at least one of these 
languages appears to have independent interest [1]. Following our categorical 
equivalence result, we connect them by a stack-passing transformation. 

3.1 Computational A-calculus and Freyd-categories 

In this section, we sketch how closed Freyd-categories give semantics for the Ac- 
calculus. We already know, by Theorem 2, that the A c -calculus has a sound and 
complete class of models given by closed Freyd-categories, but the point here is 
to see how the primitives of the calculus as we will express it correspond to the 
primitives of the definition of closed Freyd-category. 
Raw terms are given by the following grammar: 

V : : = x | () | (V, V) | Xx.M 
p:: = x\ () | (x,x) 
M : : = V | let p = M in M \ VV 



Though this is not strictly necessary, we chose here a calculus in which a pair 
(M, TV) would have to be explicitly sequenced, as it were, by writing 

let x = M in let y = N in (x, y) 

(or, if one wants right-to-left evaluation order, let y = N in let x = M in (x, y)). 
This is meant to emphasize that, in a premonoidal setting, we need to take a 
little more care than in a monoidal one. 

We first consider a first order fragment of the A c -calculus. Like monoidal cate- 
gories, premonoidal categories naturally correspond to calculi with multiplicative 
contexts. 

r>rN:A A,x:AVM:B rhA<:unit AY- M:B 
r,A\- let x = N inM: B r,A\- let () = N in M: B 

r\-N:A 1 *A 2 A,x 1 :A 1 ,x 2 :A 2 \-M:B 
r,A h let (x u x 2 ) = NiiiM:B 

The let-construct of the computational A-calculus is interpreted by sequential 
composition (together with the premonoidal tensor for concatenation of con- 
texts). 

In a symmetric premonoidal category [10], we can permute variables in the 
sequents: 

r,x: A,y:B,A h M:C 
r,y:B,x:A,Ah M:C 

Semantically, this rule is interpreted by precomposition with [J 1 ] ®c(E> \A\, where 
c is the symmetry isomorphism \B\ ® \A\ = \A\ ® \B\. 

Furthermore, for a Freyd-category J:C — > K, (Definition 4), we can add 
weakening and contraction in sequents 

r\-M:B r,x:A,y:A\-M:C 
r,x: A\- M: B r,x:A\- M[y: = x]:C 

Weakening and contraction are interpreted by the counit [I 1 ] <E> {Aj — > [J 1 ] and 
comultiplication {rj <E> [A] — > [F] <E> [A] <E> [A] of the comonad as described in 
Definition 5. 

And as we have finite products in C, we have additive sequents for first-order 
values: 

ri-Vf.Bt rvv 2 -.B 2 

x 1 :B 1 ,...,x n :B n \-x i :B i fh ():unit T h (V u V 2 ): B^B 2 

Finally, if we have a closed Freyd-category (Definition 2), we can interpret 
A-terms (giving them a call- by- value semantics) . We add multiplicative sequents 
for A-abstraction and application: 

r,x: A\- M: B rhV:A^B AVW:A 

r h Xx.M: A -> B r, A h VW: B 



The adjunction giving the closed structure codifies two principles of the call-by- 
value A-calculus: A-abstractions are values; and only values may be substituted 
for arguments. 

The calculus, upon the addition of the predicates and rules due to Moggi, is 
equivalent to the A c -calculus [7] : we do not have types TX as they are equivalent 
to certain exponentials, while Moggi's constructors [_] and [i may be taken to be 
given by certain A-terms and applications respectively. One can avoid 7r-terms 
by use of pattern matching. 

3.2 ft-calculus and closed ft-categories 

In Hasegawa's account [2] , higher-order structure was added to the K-calculus by 
a binder dual to the K-binder. This does not seem to generalize to call-by-value. 
Instead, we add a thunking construct to the K-calculus that corresponds to the 
closed structure on a K-category. 

Hasegawa originally compared his first-order function abstraction kx.M to 
lambda in early Lisp (i.e. lacking first-class functions). More recently, such a 
first-order binder has been found useful in compiling [1,5]; it was called A s in 

[1]. Roughly speaking the reason is that a curried function Xx\ \x n .M would 

need to build n intermediate closures, an unnecessary expense if the function is 
immediately applied to n arguments. An uncurried n-ary function would avoid 
building closures, but not heap-allocation, as an n-tuple would have to be con- 
structed before the function could be applied. By contrast, KiX\ .... KiXfi • M would 
simply consume n arguments by popping them from the stack. To turn this into 
a first-class function, a separate operation is needed (which we call mkthunk). 

To adapt the K-calculus to call-by- value, we introduce two kinds of judge- 
ments for values and computations, respectively. As usual, a value judgement is 
of the form x\ : C\ , . . . , x n : C n \~V:B. A computation judgement of K-calculus is 
of the form 



where A t and Bj are types. Intuitively, Ai , . . . , A m is the type of the stack before 
M is run, and B\, . . . , the type of the stack after M has run. (Douence and 
Fradet [1] also proposed a type system for their calculus, but typing failed to be 
preserved by the associativity law for sequential composition, essentially because 
their types do not keep track of the whole stack.) Our version of K-calculus is a 
combination of [1] and [2]: 



xi:Ci 



...,x n :C n \A u ...,A m \+M:B 1 ,...,B k 



r\S\^M:S' r\S'\+N:S' 

r\s\^ M-N-.S" 



•II 



r, x: A, r \- x: A 



r I S \^pushV:C,S 
r\S\^M:S' 



r^v-.c 



r,x:C I S [-> M:S' 
r\C,S\-> kx.M: S' 



r h mkthunk M: [S -> S'} 



r\[S^ S'],S, S" H- apply: S' , S> 



'a 



A computation judgement denotes a morphism from A\ x • • • x A m to Bi x • • • x Bf. 
in the fibre over C\ x • • • x C n . A value judgement denotes a morphism in the base 
in the usual fashion. Most of the categorical semantics is fairly evident from the 
syntax and follows Hasegawa [2]; for instance ";" is interpreted by composition 
(in diagrammatic order) in the fibre over \T\. The K-binder is interpreted by 
the K-adjunction (Definition 6). The denotation of push!/ is given by reindexing 
K _1 idcxS along the denotation of V. The higher-order structure in terms of 
mkthunk is given by the adjunction making a K-category closed (Definition 3). 
(A similar decomposition of A into binding and thunking underlies Levy's call- 
by-push- value paradigm [6].) 

The intended meaning of the K-calculus is that the most recently pushed 
value is popped by k, and that apply forces a thunk (made by mkthunk) from 
the top of the stack: 

(push V); (kx.M) = M[x: = V] 
(L;M);N = L;(M;N) 
push (mkthunk M) ; apply = M 

3.3 Syntactic translations 

Because of the categorical equivalence results, we know that the languages in 
this section are in some sense equivalent. Here we give syntactic translations 
motivated by that equivalence. 

In one direction, Douence and Fradet [1] remark that the let of the com- 
putational A-calculus can be translated into the K-binder. The translation of 
A-calculus into K-calculus is then essentially the same as their compilation in 
Figure 4 of [1]: 

(letx = MiniV) t = M t ;KZ.7V t 
x* = push a; 
(Az.M) t = push (mkthunk (kx.M^)) 
VW X = apply 

The translation of let explains the naming and sequencing of A c in terms of the 
pushing and popping of K-calculus. For example, we read the right hand side of 
the equation as: evaluate M, leaving a value on the top of the stack; then pop 
that value and call it x in N. 

It is slightly less obvious if K-calculus can be translated into computational 
A-calculus. After all, there is no stack for the K-binder to pop. A solution is to 
provide a variable that acts as a stack. A K-term M is translated into a A-term 
M* with a distinguished free variable s as follows: 



(kx.M)* = let (x, s) = s inM* 
(M; TV)* = lets = M* inN* 



(pushy)* = (v*,s) 

(mkthunkM)* = Xs.M* 

apply* = let (/, x) = s in fx 

The rule for apply is somewhat awkward, as it only preserves typing if the 
remainder of the stack is empty. For the general case, one would need to reformat 
the stack before and after the function is applied, in effect by defining coherence 
isomorphisms. 

4 Conclusions and directions for further work 

Because of the equivalence of closed Freyd-categories and closed K-categories to a 
strong monad with Kleisli exponentials, the known soundness and completeness 
results for the traditional interpretation of computational A-calculus carry over 
in a routine fashion. (Soundness and completeness of a graphical notation similar 
to our variant of computational A-calculus was shown by Jeffrey [3].) 

We believe our equivalence expresses, at an abstract level, a semantic link 
between computational A-calculus and stack-based intermediate languages used 
in compiling. It seems encouraging in this regard that the decomposition of A 
into a first-order binder (which we called k) and the creation of a first-class 
function (an operation we called thunking) arose both in compiling and from 
the notion of closed structure on a K-category. Though much more remains to 
be done to flesh out this connection, it seems that relatively low-level constructs 
can have clean categorical semantics. 
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A Freyd-categories and ^-categories 

We refer the reader to [10] for the definition of symmetric premonoidal category 
and associated structures. 

Definition 4. A Freyd-category consists of a category C with finite products, a 
symmetric premonoidal category IC, and an identity on objects strict symmetric 
premonoidal functor J: C — > IC. 

We will sometimes write IC for a Freyd-category, as the rest of the structure 
is usually implicit. 

Definition 5. A comonoid in a premonoidal category IC consists of an object 
C of IC, and central maps 5: C — > C <E> C and v. C — > I making the usual 
associativity and unit diagrams commute. A comonoid map from C to D in a 
premonoidal category K, is a central map f: C — > D that commutes with the 
comultiplications and counits of the comonoids. 

Given a premonoidal category IC, comonoids and comonoid maps in IC form a 
category Comon(/C) with composition given by that of IC. Moreover, any strict 
premonoidal functor H: IC — > C lifts to a functor Comon(i?): Comon(/C) — > 
Comon(£). Trivially, any comonoid C yields a comonad — (g)C, and any comonoid 
map /: C — > D yields a functor from Kleisli(— (g)D), the Kleisli category of the 
comonad — ® D, to Kleisli(— ® C), that is the identity on objects. So we have 
a functor s(/C): Comon(/C) op — > Cat. Given a category C with finite products, 
every object A of C has a unique comonoid structure, given by the diagonal 
and the unique map to the terminal object. So Comon(C) is isomorphic to C. 
Thus, given a Freyd-category J:C — > K,, we have a functor k(J):C° p — > Cat 
given by s(/C) composed with the functor induced by J from C = Comon(C) to 
Comon(/C). 

Definition 6. A /t-category consists of a small category C with finite products, 
together with an indexed category H:C op — > Cat such that 

— for each object A of C, Ob Ha = ObC, and for each arrow f:A — > B in 
C, the functor Hf-. Hb — > Ha is the identity on objects 

— for each projection it: B x A — > B in C, the functor H n has a left adjoint 
Lb given on objects by — x A 



(the Beck-Chevalley condition) for every arrow f: B — > B' in C, the natural 
transformation from Lb ° -H/xicU t° Hf 0 Lb 1 induced by the adjointness is 
the identity. 



Hb> 



H 



HbxA 



H, 



Proposition 4. Given a K-category H:C op — > Cat, there is an indexed functor 
inc: s(C) — > H as follows: for each A in C, we have a functor from s(Ca) to Ha- 
On objects, it is the identity. To define inci on arrows, given f:A — > B in C, 
consider the arrow lb - 1 — > B in Hb corresponding under the adjunction to ids 
in Hi. Applying Hf to it gives a map Hf(iB)'- 1 — > B in Ha, or equivalently, 
under the adjunction, a map from A to B in Hi. Define inci(/) to be that map. 



A' 



B 



A 



inci(/) 



Hf(LB) 



H, 



B 



B 



B 



B 



B 



This plus naturality determines the rest of the structure. 

Theorem 4. Let C be a small category with finite products. Given a K-category 
H:C op — > Cat, there is a small Freyd- category J:C — > IC, unique up to iso- 
morphism, for which H is isomorphic to k(J). The correspondence extends to 
an equivalence between the 2-category of small Freyd-categories and that of k- 
categories. 



